From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sat, 3 Jan 2004 17:17:21 +0000 (+0000)
Subject: (functionp): Doc fix.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24591
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ff6b6c720e7d7614ea3fb9722160c4a960764eda;p=emacs.git

(functionp): Doc fix.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index a2b09d6b63b..b251ab6573a 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2205,7 +2205,10 @@ configuration."
        (eq (car object) 'frame-configuration)))
 
 (defun functionp (object)
-  "Non-nil iff OBJECT is a type of object that can be called as a function."
+  "Non-nil if OBJECT is any kind of function or a special form.
+Also non-nil if OBJECT is a symbol and its function definition is
+\(recursively) a function or special form.  This does not include
+macros."
   (or (and (symbolp object) (fboundp object)
 	   (condition-case nil
 	       (setq object (indirect-function object))